Private Sub Worksheet_Change(ByVal Target As Range)
    Target.EntireColumn.AutoFit
' de code toevoegen aan Blad1, Blad2 etc.
End Sub

OF

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Target.EntireColumn.AutoFit
' de code toevoegen aan ThisWorkbook
End Sub
